home *** CD-ROM | disk | FTP | other *** search
/ The History of Denim / The History of Denim.iso / pc / help.dir / 00002_Handlers.ls < prev    next >
Encoding:
Text File  |  1997-11-14  |  2.1 KB  |  78 lines
  1. on WindowFunctions
  2.   global CatchMouseX, CatchMouseY, HelpMoving
  3.   if the memberNum of sprite 2 = the memberNum of member "help_pal" then
  4.     set Check to rect(143, 0, 176, 25)
  5.     set NewMember to the memberNum of member "help_zip"
  6.   else
  7.     set Check to rect(21, 0, 61, 25)
  8.     set NewMember to the memberNum of member "help_pal"
  9.   end if
  10.   if inside(point(the mouseH, the mouseV), Check) then
  11.     if HelpMoving then
  12.       nothing()
  13.     else
  14.       puppetSound(4, "Whoosh")
  15.       tell the stage
  16.         RollWindow("Help")
  17.       end tell
  18.       set the memberNum of sprite 2 to NewMember
  19.     end if
  20.   end if
  21.   if inside(point(the mouseH, the mouseV), rect(0, 0, 20, 20)) then
  22.     tell the stage
  23.       removewindow("Help")
  24.     end tell
  25.   end if
  26. end
  27.  
  28. on MoveMyWindow
  29.   global CatchMouseX, CatchMouseY, HelpMoving
  30.   if HelpMoving then
  31.     set DeltaX to the mouseH - CatchMouseX
  32.     set DeltaY to the mouseV - CatchMouseY
  33.     tell the stage
  34.       moveWindow("Help", DeltaX, DeltaY)
  35.     end tell
  36.   end if
  37. end
  38.  
  39. on jumptohelpscreen
  40.   global HelpMoving, helphighlighted, MouseMGR
  41.   set MarkerList to ["home", "pal", "search", "timeline", "map", "brand", "styles", "info", "market"]
  42.   if HelpMoving then
  43.     nothing()
  44.   else
  45.     if inside(point(the mouseH, the mouseV), rect(14, 180, 165, 201)) then
  46.       cursor([member "Wait", member "Waitmask"])
  47.       tell the stage
  48.         go(getAt(MarkerList, helphighlighted), "_help.dir")
  49.       end tell
  50.       cursor(0)
  51.       set MouseMGR to EMPTY
  52.     end if
  53.   end if
  54. end
  55.  
  56. on jumptohelpscreen_doubleclick
  57.   global HelpMoving, helphighlighted, MouseMGR
  58.   set MarkerList to ["home", "pal", "search", "timeline", "map", "brand", "styles", "info", "market"]
  59.   if HelpMoving then
  60.     nothing()
  61.   else
  62.     if inside(point(the mouseH, the mouseV), rect(16, 48, 146, 164)) then
  63.       if the doubleClick then
  64.         if MouseMGR = "doubleclicked_help" then
  65.           nothing()
  66.         else
  67.           cursor([member "Wait", member "Waitmask"])
  68.           tell the stage
  69.             go(getAt(MarkerList, helphighlighted), "_help.dir")
  70.           end tell
  71.           set MouseMGR to "doubleclicked_help"
  72.         end if
  73.         cursor(0)
  74.       end if
  75.     end if
  76.   end if
  77. end
  78.